home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
netmail
/
rnr214.zip
/
RNRTIME.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-07
|
500b
|
49 lines
unit rnrtime;
{
rnrtime.pas - timeout for rnr
}
{$I rnr-def.pas}
interface
{$ifdef timeout}
uses dos;
var minlastinput: integer;
function mitoday: integer; {minutes into today}
{$endif}
procedure resetidle;
implementation
{$ifdef timeout}
function mitoday;
var
h,m,s,s00: word;
begin
gettime(h,m,s,s00);
mitoday := 60*h+m;
end;
{$endif}
procedure resetidle;
begin
{$ifdef timeout}
minlastinput := mitoday;
{$endif}
end;
end.